#!/usr/local/bin/perl


$fw_eng =  "/home/naila/Naila_Thesis/corpus/temp/eng_dicwords.txt";
$fw_urdu =  "/home/naila/Naila_Thesis/corpus/temp/urdu_dicwords.txt";
open FWE,">:utf8",$fw_eng;
open FWU,">",$fw_urdu;

$file_name = "/home/naila/Naila_Thesis/corpus/dictionary/dictionary.txt";

open(FF,$file_name) || die("Cannot open file");
	while(<FF>)
	{

	    @words = split('@',$_);
	    print $#words;
	    if($#words == 1)
	    {
	    	print FWE $words[0];
			print FWE "\n";
			print FWU $words[1];
	    }


#		print "$words[0]\n";

	}
	close FF;
	close FWE;
	close FWU;



